home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 17 / MacFormat 17 (Spain) / MacFormat 17.bin / DATABASE / SHARED.DIR / 01015.ls < prev    next >
Encoding:
Text File  |  1996-03-14  |  315 b   |  17 lines
  1. on unpuppet str
  2.   if the paramCount > 0 then
  3.     repeat with i = 1 to 48
  4.       if i = item 1 of str then
  5.         delete item 1 of str
  6.         next repeat
  7.         next repeat
  8.       end if
  9.       puppetSprite(i, 0)
  10.     end repeat
  11.   else
  12.     repeat with i = 1 to 48
  13.       puppetSprite(i, 0)
  14.     end repeat
  15.   end if
  16. end
  17.